home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / net / tf02.lha / TinyFugue / tf-lib / finger.tf < prev    next >
Text File  |  1995-08-12  |  976b  |  28 lines
  1. ; finger - get user information.  Arguments are like unix finger:
  2. ; /finger user@host
  3. ; /finger user
  4. ; /finger @host
  5. ; /finger
  6.  
  7. ; This is more complicated than it needs to be, just to make it act nicely.
  8.  
  9. /def -i finger = \
  10.     /test regmatch("([^@]*)@?(.*)", {*})%; \
  11.     /let user=%{P1}%; \
  12.     /let host=%{P2-localhost}%; \
  13.     /def -i _finger_exit = \
  14.         /purge -i -msimple -h"CONNECT|CONFAIL|DISCONNECT {finger@%{host}}*"%%;\
  15.         /fg ${world_name}%; \
  16.     /def -i -ag -msimple -h'REDEF world finger@%{host}'%; \
  17.     /addworld finger@%{host} %{host} 79%; \
  18.     /purge -i -msimple -h"REDEF world finger@%{host}"%; \
  19.     /def -i -ag -mglob -h'CONNECT {finger@%{host}}*' -p%{maxpri} = \
  20.         /fg finger@%{host}%%; \
  21.         /send -- %{user}%; \
  22.     /def -i -ag -mglob -h'DISCONNECT {finger@%{host}}*' -p%{maxpri} = \
  23.         /_finger_exit%; \
  24.     /def -i -mglob -h'CONFAIL {finger@%{host}}*' -p%{maxpri} = \
  25.         /_finger_exit%; \
  26.     /connect finger@%{host}
  27.  
  28.